home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAMRADIO
/
LOGBOOK.ZIP
/
LOG2DBF.PRG
< prev
next >
Wrap
Text File
|
1986-06-09
|
3KB
|
96 lines
*LOG2DBF CONVERTS A BASIC LOG FILE TO A DATABASE VERSION 851114
STORE 'LOG' TO log
IF FILE (log)
USE &log
* EMPTY LOG FILE
STORE ' ' TO contestlog
ACCEPT 'What is the name of the contest log (D:NAME) ' TO contestlog
IF FILE (contestlog)
? 'ERROR,',contestlog,' ALREADY EXISTS'
WAIT
ELSE
IF FILE (contestlog+'.LOG')
COPY STRUCTURE TO &contestlog
?
? ' New database file created'
USE &contestlog
STORE TRIM(contestlog) + '.LOG' TO oldlog
?
? 'Copying log data now'
SET TALK ON
APPEND FROM &oldlog SDF DELIM
SET TALK OFF
STORE ' ' TO df
ACCEPT ' Do you want a listing of the database (Y/N) ? ' TO df
IF df = 'Y'
LIST
?
ENDIF
?
ACCEPT 'Do you want the contacts numbered (Y/N) ? ' TO df
IF df = 'Y'
STORE 1 TO qsocount
GOTO TOP
DO WHILE .NOT. EOF
REPLACE rx WITH $(comments,1,3)
REPLACE comments WITH $(comments,4,10)
IF df = 'Y'
STORE STR(qsocount,10) TO number
DO WHILE $(number,1,1) = ' '
STORE $(number,2,10) TO number
ENDDO
REPLACE comments WITH TRIM(number)+'-'+comments
STORE qsocount + 1 TO qsocount
ENDIF
DISP
SKIP
ENDDO
ENDIF
ACCEPT 'Do you want to INDEX the contest log (DBF) (Y/N) ? ' TO df
IF df = 'Y'
?
USE &contestlog
SET TALK ON
INDEX ON call+band TO &contestlog
SET TALK OFF
? 'TO PRINT CONTEST LOG, go back to main menu'
?
? 'SET LOG TO contestlog, AND PRINT IT'
WAIT
ENDIF
ACCEPT 'Append the new log to the main logbook (Y/N) ? ' TO df
IF df = 'Y'
?
IF FILE (logbook)
USE &logbook INDEX &logbook
SET TALK ON
APPEND FROM &contestlog
SET TALK OFF
ELSE
? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
ENDIF
ACCEPT 'Do you want to make the contest log the default log ? ' TO df
IF df = 'Y'
STORE contestlog TO logbook
ENDIF
ELSE
? 'ERROR CONTEST LOG IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
ENDIF
ELSE
? 'BLANK LOG IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
RELEASE oldlog,df,contestlog,log
USE
RETURN